DR1='n:'
F1='DISPOS'
** F11='DISPOS'
F12='DISPNM'

SELE 1                                                                                                                                                                                                                                                    
SET EXCLU OFF                                                                                                                                                                                                                                             
USE &DR1&F1                                                                                                                                                                                                                                                

   INDE ON DISP_CODE TO &DR1&F1
   INDE ON DISP_NAME TO &DR1&F12

CLOSE

